score <- function(input) {
    if (input[4] <= 0.75) {
        var0 <- c(1.0, 0.0, 0.0)
    } else {
        if (input[3] <= 4.75) {
            var0 <- c(0.0, 1.0, 0.0)
        } else {
            if (input[3] <= 5.049999952316284) {
                if (input[4] <= 1.75) {
                    var0 <- c(0.0, 0.8333333333333334, 0.16666666666666666)
                } else {
                    var0 <- c(0.0, 0.08333333333333333, 0.9166666666666666)
                }
            } else {
                var0 <- c(0.0, 0.0, 1.0)
            }
        }
    }
    if (input[4] <= 0.800000011920929) {
        var1 <- c(1.0, 0.0, 0.0)
    } else {
        if (input[1] <= 6.25) {
            if (input[3] <= 4.8500001430511475) {
                var1 <- c(0.0, 0.9487179487179487, 0.05128205128205128)
            } else {
                var1 <- c(0.0, 0.0, 1.0)
            }
        } else {
            if (input[4] <= 1.550000011920929) {
                var1 <- c(0.0, 0.8333333333333334, 0.16666666666666666)
            } else {
                var1 <- c(0.0, 0.02564102564102564, 0.9743589743589743)
            }
        }
    }
    return(var0 + var1 * 0.5)
}
